home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
biz
/
misc
/
MUIBanque1_11.lha
/
MUIBanque
/
Installation
< prev
next >
Wrap
Text File
|
1996-11-24
|
2KB
|
65 lines
; $VER: Installation MUIBanque 1.10 (03.11.96) par David PRESLE
(complete 0)
;####################################################################
; Création de quelques variables
(set MessChoixDir "Où voulez vous créer le répertoire MUIBanque?")
(set AideChoixDir
(cat " Sélectionnez l'endroit où le repertoire MUIBanque sera créé.\n"
" Ce répertoire servira à stocker tous les fichiers de MUIBanque."
)
)
(set MessChoixExemple "Voulez-vous copier le fichier d'exemple \"Exemple.compte\"?")
(set AideChoixExemple
(cat " Le fichier d'exemple permet d'avoir un aperçu des possibilités de MUIBanque.\n"
" Si vous choisissez de le copier, ce fichier sera stocké dans le même répertoire que MUIBanque."
)
)
(complete 25)
;####################################################################
;Choix et création du repertoire
(set DestDir
(askdir
(prompt MessChoixDir)
(help AideChoixDir)
(default "SYS:")
)
)
(set DestDir (expandpath DestDir))
(set @default-dest (tackon DestDir "MUIBanque"))
(makedir @default-dest (infos))
(complete 50)
;####################################################################
; Copie des fichiers
(copyfiles
(source "")
(dest @default-dest)
(pattern "(MUIBanque|MUIBanque.guide|MUIBanque.LisezMoi)")
(infos)
)
(complete 75)
;####################################################################
; Copie du fichier Exemple.compte?
(
if (askbool (prompt MessChoixExemple) (help AideChoixExemple))
(
copyfiles (source "Exemple.compte") (dest @default-dest)
)
)
(complete 100)
;####################################################################